home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / select2.fr_ / select2.fr
Text File  |  1995-07-04  |  4KB  |  131 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "DISTINCT SELECTer"
  5.    ClientHeight    =   3225
  6.    ClientLeft      =   1080
  7.    ClientTop       =   2460
  8.    ClientWidth     =   5340
  9.    Height          =   3630
  10.    Left            =   1020
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3225
  13.    ScaleWidth      =   5340
  14.    Top             =   2115
  15.    Width           =   5460
  16.    Begin VB.CommandButton cmdClose 
  17.       Caption         =   "&Close Form"
  18.       BeginProperty Font 
  19.          name            =   "MS Sans Serif"
  20.          charset         =   0
  21.          weight          =   700
  22.          size            =   8.25
  23.          underline       =   0   'False
  24.          italic          =   0   'False
  25.          strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   495
  28.       Left            =   2640
  29.       TabIndex        =   3
  30.       Top             =   2040
  31.       Width           =   1995
  32.    End
  33.    Begin VB.CommandButton cmdShowUnique 
  34.       Caption         =   "Show &Unique"
  35.       BeginProperty Font 
  36.          name            =   "MS Sans Serif"
  37.          charset         =   0
  38.          weight          =   700
  39.          size            =   8.25
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   495
  45.       Left            =   2640
  46.       TabIndex        =   2
  47.       Top             =   1260
  48.       Width           =   1995
  49.    End
  50.    Begin VB.CommandButton cmdShowAll 
  51.       Caption         =   "Show &All"
  52.       BeginProperty Font 
  53.          name            =   "MS Sans Serif"
  54.          charset         =   0
  55.          weight          =   700
  56.          size            =   8.25
  57.          underline       =   0   'False
  58.          italic          =   0   'False
  59.          strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   495
  62.       Left            =   2640
  63.       TabIndex        =   1
  64.       Top             =   540
  65.       Width           =   1995
  66.    End
  67.    Begin VB.Data Data1 
  68.       Caption         =   "Data1"
  69.       Connect         =   "Access"
  70.       DatabaseName    =   "C:\VB\BIBLIO.MDB"
  71.       Exclusive       =   0   'False
  72.       Height          =   300
  73.       Left            =   900
  74.       Options         =   0
  75.       ReadOnly        =   0   'False
  76.       RecordsetType   =   2  'Snapshot
  77.       RecordSource    =   ""
  78.       Top             =   2640
  79.       Visible         =   0   'False
  80.       Width           =   1140
  81.    End
  82.    Begin MSDBCtls.DBList DBList1 
  83.       Bindings        =   "SELECT2.frx":0000
  84.       DataField       =   "State"
  85.       Height          =   2010
  86.       Left            =   840
  87.       TabIndex        =   0
  88.       Top             =   480
  89.       Width           =   975
  90.       _Version        =   65536
  91.       _ExtentX        =   1720
  92.       _ExtentY        =   3545
  93.       _StockProps     =   77
  94.       BackColor       =   -2147483643
  95.       ListField       =   "State"
  96.       BoundColumn     =   "State"
  97.       MouseIcon       =   "SELECT2.frx":000E
  98.    End
  99. End
  100. Attribute VB_Name = "Form1"
  101. Attribute VB_Creatable = False
  102. Attribute VB_Exposed = False
  103. Option Explicit
  104.  
  105. Private Sub cmdClose_Click()
  106.     End
  107. End Sub
  108.  
  109. Private Sub cmdShowAll_Click()
  110.     Dim sql As String
  111.     
  112.     sql = "SELECT [State] FROM [Publishers]"
  113.     sql = sql & " WHERE [State] IS NOT NULL"
  114.     sql = sql & " ORDER BY [State]"
  115.     Data1.RecordSource = sql
  116.     Data1.Refresh
  117.     DBList1.Refresh
  118. End Sub
  119.  
  120. Private Sub cmdShowUnique_Click()
  121.     Dim sql As String
  122.     
  123.     sql = "SELECT DISTINCT [State] FROM [Publishers]"
  124.     sql = sql & " WHERE [State] IS NOT NULL"
  125.     sql = sql & " ORDER BY [State]"
  126.     Data1.RecordSource = sql
  127.     Data1.Refresh
  128.     DBList1.Refresh
  129. End Sub
  130.  
  131.